﻿Public Class ClsTLedgerSetting
    '对应数据文件：当前打开账套data/l_XXX.mdb
    '对应数据表：T_LedgerSetting

    Private mLedgerSettingId As Integer
    Private mCompanyName As String
    Private mIndustryTypeId As Integer
    Private mIndustryType As String
    Private mLedgerIfOpened As Boolean
    Private mLedgerOpenedDate As Date
    Private mLedgerWorkYear As String
    Private mLedgerOpenWorkYear As String '6位: 202101
    Private mLedgerSubAcctLength As Integer '默认次级科目长度为 3
    Private mLedgerOwnerCurrency As String '本位币
    Private mCashCode As String '现金科目
    Private mBankCode As String '银行科目
    Private mAssetsCode As String '固定资产科目
    Private mDepCode As String '累计折旧科目
    Private mReceiveCode As String '应收账款科目
    Private mPayCode As String '应付账款科目
    Private mGainCode As String '本年利润科目
    Private mDevCode As String '损益汇兑科目
    Private mStockCode As String '存货科目
    Private mIncAndDecCode As String '损益科目
    Private mIfPrintQuantity As Boolean
    Private mIfPrintForeignMoney As Boolean
    Private mIfPrintBankInfo As Boolean
    Private mIfPrintNegative As Boolean
    Private mIfPrintManager As Boolean
    Private mIfPrintPoster As Boolean
    Private mIfPrintChecker As Boolean
    Private mIfPrintCasher As Boolean
    Private mIfPrintMaker As Boolean
    Private mIfPrintPerson As Boolean
    Private mIfPrintDate As Boolean
    Private mIfSelfPostVoucher As Boolean '是否允许同一个人过账
    Private mIfSelfCheckVoucher As Boolean '是否允许同一个人审核凭证
    Private mLedgerAbSetup As Integer '是否AB账，0- 不分，1- A 2-B
    Private mLedgerId As Integer '当前账套在sys.mdb表S_Ledger中的账套编号
    Private mRelativeLedgerId As Integer '如果是AB账，则相关账套在sys.mdb S_Ledger表中的账套编号
    Private mOneAcctLevelLength As Int16 '一级科目长度

    Public Property LedgerWorkYear As String
        Get
            Return mLedgerWorkYear
        End Get
        Set(value As String)
            mLedgerWorkYear = value
        End Set
    End Property

    Public Property LedgerAbSetup As Integer
        Get
            Return mLedgerAbSetup
        End Get
        Set(value As Integer)
            mLedgerAbSetup = value
        End Set
    End Property



    Public Property IfPrintQuantity As Boolean
        Get
            Return mIfPrintQuantity
        End Get
        Set(value As Boolean)
            mIfPrintQuantity = value
        End Set
    End Property

    Public Property IfPrintForeignMoney As Boolean
        Get
            Return mIfPrintForeignMoney
        End Get
        Set(value As Boolean)
            mIfPrintForeignMoney = value
        End Set
    End Property

    Public Property IfPrintBankInfo As Boolean
        Get
            Return mIfPrintBankInfo
        End Get
        Set(value As Boolean)
            mIfPrintBankInfo = value
        End Set
    End Property

    Public Property IfPrintNegative As Boolean
        Get
            Return mIfPrintNegative
        End Get
        Set(value As Boolean)
            mIfPrintNegative = value
        End Set
    End Property

    Public Property IfPrintManager As Boolean
        Get
            Return mIfPrintManager
        End Get
        Set(value As Boolean)
            mIfPrintManager = value
        End Set
    End Property

    Public Property IfPrintPoster As Boolean
        Get
            Return mIfPrintPoster
        End Get
        Set(value As Boolean)
            mIfPrintPoster = value
        End Set
    End Property

    Public Property IfPrintChecker As Boolean
        Get
            Return mIfPrintChecker
        End Get
        Set(value As Boolean)
            mIfPrintChecker = value
        End Set
    End Property

    Public Property IfPrintCasher As Boolean
        Get
            Return mIfPrintCasher
        End Get
        Set(value As Boolean)
            mIfPrintCasher = value
        End Set
    End Property

    Public Property IfPrintMaker As Boolean
        Get
            Return mIfPrintMaker
        End Get
        Set(value As Boolean)
            mIfPrintMaker = value
        End Set
    End Property

    Public Property IfPrintPerson As Boolean
        Get
            Return mIfPrintPerson
        End Get
        Set(value As Boolean)
            mIfPrintPerson = value
        End Set
    End Property

    Public Property IfPrintDate As Boolean
        Get
            Return mIfPrintDate
        End Get
        Set(value As Boolean)
            mIfPrintDate = value
        End Set
    End Property

    Public Property LedgerIfOpened As Boolean
        Get
            Return mLedgerIfOpened
        End Get
        Set(value As Boolean)
            mLedgerIfOpened = value
        End Set
    End Property

    Public Property LedgerOpenedDate As Date
        Get
            Return mLedgerOpenedDate
        End Get
        Set(value As Date)
            mLedgerOpenedDate = value
        End Set
    End Property

    Public Property LedgerOpenWorkYear As String
        Get
            Return mLedgerOpenWorkYear
        End Get
        Set(value As String)
            mLedgerOpenWorkYear = value
        End Set
    End Property

    Public Property LedgerSubAcctLength As Integer
        Get
            Return mLedgerSubAcctLength
        End Get
        Set(value As Integer)
            mLedgerSubAcctLength = value
        End Set
    End Property

    Public Property IfSelfPostVoucher As Boolean
        Get
            Return mIfSelfPostVoucher
        End Get
        Set(value As Boolean)
            mIfSelfPostVoucher = value
        End Set
    End Property

    Public Property IfSelfCheckVoucher As Boolean
        Get
            Return mIfSelfCheckVoucher
        End Get
        Set(value As Boolean)
            mIfSelfCheckVoucher = value
        End Set
    End Property

    Public Property LedgerSettingId As Integer
        Get
            Return mLedgerSettingId
        End Get
        Set(value As Integer)
            mLedgerSettingId = value
        End Set
    End Property

    Public Property CompanyName As String
        Get
            Return mCompanyName
        End Get
        Set(value As String)
            mCompanyName = value
        End Set
    End Property

    Public Property IndustryTypeId As Integer
        Get
            Return mIndustryTypeId
        End Get
        Set(value As Integer)
            mIndustryTypeId = value
        End Set
    End Property

    Public Property IndustryType As String
        Get
            Return mIndustryType
        End Get
        Set(value As String)
            mIndustryType = value
        End Set
    End Property

    Public Property LedgerOwnerCurrency As String
        Get
            Return mLedgerOwnerCurrency
        End Get
        Set(value As String)
            mLedgerOwnerCurrency = value
        End Set
    End Property

    Public Property CashCode As String
        Get
            Return mCashCode
        End Get
        Set(value As String)
            mCashCode = value
        End Set
    End Property

    Public Property BankCode As String
        Get
            Return mBankCode
        End Get
        Set(value As String)
            mBankCode = value
        End Set
    End Property

    Public Property AssetsCode As String
        Get
            Return mAssetsCode
        End Get
        Set(value As String)
            mAssetsCode = value
        End Set
    End Property

    Public Property DepCode As String
        Get
            Return mDepCode
        End Get
        Set(value As String)
            mDepCode = value
        End Set
    End Property

    Public Property ReceiveCode As String
        Get
            Return mReceiveCode
        End Get
        Set(value As String)
            mReceiveCode = value
        End Set
    End Property

    Public Property PayCode As String
        Get
            Return mPayCode
        End Get
        Set(value As String)
            mPayCode = value
        End Set
    End Property

    Public Property GainCode As String
        Get
            Return mGainCode
        End Get
        Set(value As String)
            mGainCode = value
        End Set
    End Property

    Public Property DevCode As String
        Get
            Return mDevCode
        End Get
        Set(value As String)
            mDevCode = value
        End Set
    End Property

    Public Property StockCode As String
        Get
            Return mStockCode
        End Get
        Set(value As String)
            mStockCode = value
        End Set
    End Property

    Public Property IncAndDecCode As String
        Get
            Return mIncAndDecCode
        End Get
        Set(value As String)
            mIncAndDecCode = value
        End Set
    End Property

    Public Property LedgerId As Integer
        Get
            Return mLedgerId
        End Get
        Set(value As Integer)
            mLedgerId = value
        End Set
    End Property

    Public Property RelativeLedgerId As Integer
        Get
            Return mRelativeLedgerId
        End Get
        Set(value As Integer)
            mRelativeLedgerId = value
        End Set
    End Property


    Public Property OneAcctLevelLength As Short
        Get
            Return mOneAcctLevelLength
        End Get
        Set(value As Short)
            mOneAcctLevelLength = value
        End Set
    End Property
End Class
